﻿Public Class frmJueces

    Private Sub frmJueces_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'TPI_PAVDataSet.juez' Puede moverla o quitarla según sea necesario.
        Me.JuezTableAdapter.Fill(Me.TPI_PAVDataSet.juez)


    End Sub

    Private Sub btnSalir_Click(sender As System.Object, e As System.EventArgs) Handles btnSalir.Click
        Dim Respuesta As Integer = MessageBox.Show("¿Esta seguro que quiere salir?", "Confirmar", MessageBoxButtons.OKCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)
        If Respuesta = 1 Then
            End
        End If
    End Sub

    Private Sub btnGuardar_Click(sender As System.Object, e As System.EventArgs) Handles btnGuardar.Click
        Dim juez As New Juez()

        juez.nombreInfo() = Me.txtNombre.Text
        juez.apellidoInfo() = Me.txtApellido.Text
        juez.fechaNacInfo() = Me.dtpFechaNac.Text
        juez.nroDocInfo() = Me.txtNroDoc.Text

        MessageBox.Show(juez.fechaNacInfo)

    End Sub
End Class